home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / qbbs276s.zip / RICK-L.ZIP / MAIN-DIR.ZIP / MCS.Q-A < prev    next >
Text File  |  1992-08-08  |  4KB  |  137 lines
  1. ClearScreen
  2. ChangeColor 13 0
  3. Display "|"      ╓──╥──┐╓─────┐╓──╥──┐╓─────┐╥─────┐  ╓─────┐──╥──╓──╥──┐╥     ┬"
  4. Display "|"      ║  ║  │║     │   ║   ║     │║     │  ║        ║     ║   ║     │"
  5. Display "|"      ║  ║  │║     │   ║   ║     │╟───┬─┘  ║        ║     ║   ╙─────┤"
  6. Display "|"      ║  ║  │║     │   ║   ║     │║   │    ║        ║     ║         │"
  7. Display "|"      ╨  ╨  ┴╙─────┘   ╨   ╙─────┘╨   ┴─   ╙─────┘──╨──   ╨   ╙─────┘"
  8. Display "|"                 ╓─┐ ╓──┐ ╥──┐ ╓─╥─┐ ╥ ╥ ┬ ╓──┐ ╥──┐ ╥──┐            "
  9. Display "|"      ▄▄▄▄▄▄▄▄▄  ╙─┐ ║  │ ╟─     ║   ║ ║ │ ╟──┤ ╟─┬┘ ╟─   ▄▄▄▄▄▄▄▄▄▄▄"
  10. Display "|"                ╙──┘ ╙──┘ ╨      ╨   ╙─╨─┘ ╨  ┴ ╨ ┴  ╨──┘            ||"
  11. ChangeColor 12 0
  12. Display "                       M C S - Address Questionnaire |"
  13. ChangeColor 11 0
  14. Display "  Would you like to Register your ADDRESS with Motor City Software ? (Y/N): "
  15. GetChoice YN 1
  16. If 1 = "N"
  17. ChangeColor 7 0
  18. Display "|   You may choose to answer this survey at any time. |"
  19. Display " Thanks for taking your time to find out more about"
  20. ChangeColor 15 0
  21. Display " Motor City Software ||"
  22. Quit
  23. Endif
  24.  
  25. ClearScreen
  26. SetSecurity 10
  27. ChangeColor 7 0
  28. Display "Please enter your FULL NAME -> IE: "
  29. ChangeColor 13 0
  30. Display "First MI LAST |"
  31. ChangeColor 15 0
  32. Display ":"
  33. Ask 60 2 6
  34.  
  35. ChangeColor 7 0
  36. Display "|Please enter your STREET Address or Post Office Box |"
  37. ChangeColor 15 0
  38. Display ":"
  39. ASK 60 3 6
  40.  
  41. ChangeColor 7 0
  42. Display "|Please enter your CITY|"
  43. ChangeColor 15 0
  44. Display ":"
  45. Ask 30 4 4
  46.  
  47. ChangeColor 7 0
  48. Display "|Please enter your STATE or LOCATION|"
  49. ChangeColor 15 0
  50. Display ":"
  51. ASK 30 5 2
  52.  
  53. ChangeColor 7 0
  54. Display "|Please enter your ZIP CODE (use 9 digit if in USA)|"
  55. ChangeColor 15 0
  56. Display ":"
  57. ASK 15 6 5
  58.  
  59. ChangeColor 7 0
  60. Display "|Do you operate a Bulletin Board System ?|"
  61. ChangeColor 13 0
  62. Display " Y = yes or N = no |"
  63. ChangeColor 15 0
  64. Display ":"
  65. GETCHOICE YN 7
  66.  
  67. IF 7 == "Y"
  68.    ChangeColor 7 0
  69.    Display "|Please enter your BBS NAME|"
  70.    ChangeColor 15 0
  71.    Display ":"
  72.    ASK 30 8 5
  73.  
  74.    ChangeColor 7 0
  75.    Display "|Please enter your Fidonet Address |"
  76.    ChangeColor 15 0
  77.    Display ":"
  78.    ASK 20 9 5
  79.  
  80.    ChangeColor 7 0
  81.    Display "|What is the Speed any type of your MODEM|"
  82.    ChangeColor 15 0
  83.    Display ":"
  84.    ASK 35 10 5
  85. ENDIF
  86.  
  87. ChangeColor 7 0
  88. Display "|Are you Registered User of any of Motor City Software Products |"
  89. ChangeColor 13 0
  90. Display " Y = yes or N = no |"
  91. ChangeColor 15 0
  92. Display ": "
  93. GETChoice YN 11
  94.  
  95. If 9 = "Y"
  96.    Display "|         Thank you for Registering our Products !!! |
  97.    ChangeColor 7 0
  98.    Display "|Please List On this Next Line Which Ones.. |"
  99.    ChangeColor 15 0
  100.    Display ": "
  101.    Ask 60 12 3
  102. Endif
  103.  
  104. ChangeColor
  105. Display "|| Motor City Software Wants to thank you for taking the time |"
  106. Display "to answer these questions.   In the Future we will Notify you |"
  107. Display "of Future Releases.   Additionally, Motor City Software will  |"
  108. Display "be offering DISCOUNTS to all previous registered Users of our |"
  109. Display "Products. ||"
  110. Display "                                          Peter Kling |"
  111. Display "                                          Motor City Software |"
  112.  
  113. ChangeColor 7 0
  114. Display "||Press "
  115. ChangeColor 13 0
  116. Display " Any Key "
  117. ChangeColor 7 0
  118. Display "to Continue ? :"
  119. ask 1 13 1
  120.  
  121. Display "|| Saving your Answer NOW ! |"
  122.  
  123. PostInfo
  124. OutputAnswer "Full Name       : " 2
  125. OutputAnswer "Street Address  : " 3
  126. OutputAnswer "City            : " 4
  127. OutputAnswer "State/location  : " 5
  128. OutputAnswer "Zip Code        : " 6
  129. OutputAnswer "Sysop           : " 7
  130. OutPutAnswer "BBS NAME        : " 8
  131. OutputAnswer "FidoNet Address : " 9
  132. OutputAnswer "Modem Speed/type: " 10
  133. OutputAnswer "MCS Registered  : " 11
  134. OutputAnswer "Product         : " 12
  135. OutputAnswer " "
  136. quit
  137.